home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / SCREEN.SWG / 0022_Put Char at LAST Row-Col.pas < prev    next >
Pascal/Delphi Source File  |  1993-07-16  |  2KB  |  53 lines
  1. ===========================================================================
  2.  BBS: Canada Remote Systems
  3. Date: 06-24-93 (15:09)             Number: 27660
  4. From: MIKE BURNS                   Refer#: NONE
  5.   To: CHRIS PORTMAN                 Recvd: NO  
  6. Subj: Re: Putting A Character R      Conf: (1221) F-PASCAL
  7. ---------------------------------------------------------------------------
  8.  -=> Quoting Chris Portman to All <=-
  9.  
  10.  CP> I was wondering if anyone knows how to put a character at the last
  11.  CP> row and the last column at the screen - every time I attempt that, the
  12.  CP> computer scrolls down to the next line.
  13.  
  14.  CP> Is there an assembler routine someone could write fast?
  15.  
  16.  CP> Thanks
  17.  
  18.  CP> PS - An example of a program that does that is Novell's SYSCON for its
  19.  CP> background fill.
  20.  
  21. Try this Chris;
  22.  
  23. Procedure DVWRITE(X,Y:word;S:String;Back,Fore,BLNK:byte);
  24. Var
  25. I,I2:integer;
  26. begin
  27.    If (X>80) or (Y>25) or (X<1) or (Y<1) then Exit;
  28.    If X+Length(S)>81 then Exit;
  29.    DEC(X);
  30.    DEC(Y);
  31.    I2:=0;
  32.    For I:= 0 to Length(S)-1 do
  33.      begin
  34.        Mem[$B800: (160 * y)+(x*2)+I2]:=Ord(S[I+1]);
  35.        Mem[$B800: (160 * y)+(x*2)+I2+1]:=BLNK+(Back SHL 4)+Fore;
  36.        INC(I2,2);
  37.      end;
  38. End;
  39.  
  40. This is a direct video write, and can not scroll the screen.
  41.   Valid range X = 1..80  Y= 1..25
  42. If you like take out the DEC(X&Y) and you can use 0..79 0..24
  43.  
  44. Should do the trick for you.
  45.  
  46. .\\ike Burns
  47.  
  48.  
  49.  
  50. ... Security, confine Ensign Portman to the brig.
  51. --- Blue Wave/Max v2.12 [NR]
  52.  * Origin: Basic'ly Computers: Mooo-ing Right Along. (1:153/9.0)
  53.